﻿Imports Aras.IOM
Imports System.Xml


Partial Class GetDocuments
    Inherits System.Web.UI.Page

    Dim Dossier_id As String = ""



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


    End Sub


    Public Function RecupHistorique(ByVal IDnode As String) As String

        'récupération dossiers
        Dim connec As ConnecteurAras = New ConnecteurAras(Session("LOGON_NAME"), Session("LOGON_PASS"))
        Dim resultat As String = connec.getHistory(IDnode)
        Return resultat

    End Function
End Class
